home *** CD-ROM | disk | FTP | other *** search
/ World Tours: Brazil / WorldTours: Brazil.iso / mac / content / main.dir / 00102_Script_print chapter < prev    next >
Text File  |  2007-04-22  |  814b  |  30 lines
  1. global curChapter
  2.  
  3. on mouseup
  4.   
  5.   doc=new(xtra "PrintOMatic")
  6.   register xtra "PrintOMatic", "PMAT173-244-98127"
  7.   
  8.   if objectP(doc) then
  9.     setdocumentname doc, "Chapter"&curChapter
  10. --    setLandscapeMode doc, false
  11.     if doPageSetup(doc) then
  12. --      newPage doc
  13. --      setTextFont doc,"Arial"
  14. --      setTextSize doc,"28"
  15. --      setTextStyle doc, "bold"
  16. --      setTextJust doc, "centered"
  17.       append doc, "Chapter"&curChapter&Return&Return&Return
  18. --      setTextFont doc,"Arial"
  19. --      setTextSize doc,"18"
  20. --      setTextStyle doc, "normal"
  21. --      setTextJust doc, "left"
  22.       append doc, member(curChapter,"chapter").text
  23.       print doc
  24.     end if
  25.     doc = void
  26.   else
  27.     alert "There is no currently selected printer. Printing features are disabled."
  28.   end if
  29. end
  30.